home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / Talk 1.0.6 / My Libraries / MyTypes.unit < prev    next >
Encoding:
Text File  |  1992-04-20  |  2.1 KB  |  101 lines  |  [TEXT/PJMM]
  1. unit MyTypes;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     const
  8.         sysWDProcID = $4552494B;        { 'ERIK' }
  9.         myErr = -5;
  10.         myErr2 = -6;
  11.         cancelErr = myErr2;
  12.         myErr3 = -7;
  13.         noType = 0;                            { should be OSType(0) !!! }
  14.  
  15.     const                                    { Low Memory Globals }
  16.         curApNameA = $910;
  17.         ticksA = $16A;
  18.         SFSaveDiskA = $214;
  19.         CurDirStoreA = $398;
  20.  
  21.     const                                    { Other OS constants, probably declared somewhere now }
  22.         kSysEnvironsVersion = 1;
  23.         kOSEvent = app4Evt;                {event used by MultiFinder}
  24.         kSuspendResumeMessage = 1;    {high byte of suspend/resume event message}
  25.         kResumeMask = 1;                    {bit of message field for resume vs. suspend}
  26.         kMouseMovedMessage = $FA;    {high byte of mouse-moved event message}
  27.         kNoEvents = 0;                        {no events mask}
  28.  
  29.     const                                    { Constants that aren't normally defined }
  30.         drawCntlMsg = 0;
  31.         testCntlMsg = 1;
  32.         calcCRgnsMsg = 2;
  33.         initCntlMsg = 3;
  34.         dispCntlMsg = 4;
  35.         posCntlMsg = 5;
  36.         thumbCntlMsg = 6;
  37.         dragCntlMsg = 7;
  38.         autoTrackMsg = 8;
  39.  
  40.     const
  41.         EMUndo = 1;
  42.         EMCut = 3;
  43.         EMCopy = 4;
  44.         EMPaste = 5;
  45.         EMClear = 6;
  46.         EMSelectAll = 7;
  47.  
  48.     const
  49.         nulChar = 0;
  50.         homeChar = $01;
  51.         enterChar = $03;
  52.         endChar = $04;
  53.         helpChar = $05;
  54.         backSpaceChar = $08;
  55.         tabChar = $09;
  56.         lfChar = $0A;
  57.         pageUpChar = $0b;
  58.         pageDownChar = $0c;
  59.         crChar = $0D;
  60.         escChar = $1b;
  61.         escKey = $35;
  62.         clearChar = $1b;
  63.         clearKey = $47;
  64.         leftArrowChar = $1c;
  65.         rightArrowChar = $1d;
  66.         upArrowChar = $1e;
  67.         downArrowChar = $1f;
  68.         spaceChar = $20;
  69.         delChar = $7f;
  70.         bulletChar = $a5;
  71.         undoKey = $7a;
  72.         cutKey = $78;
  73.         copyKey = $63;
  74.         pasteKey = $76;
  75.  
  76.     const
  77.         nul = chr(nulChar);
  78.         enter = chr(enterChar);
  79.         bs = chr(backSpaceChar);
  80.         tab = chr(tabChar);
  81.         lf = chr(lfChar);
  82.         cr = chr(crChar);
  83.         leftArrow = chr(leftArrowChar);
  84.         rightArrow = chr(rightArrowChar);
  85.         upArrow = chr(upArrowChar);
  86.         downArrow = chr(downArrowChar);
  87.         esc = chr(escChar);
  88.         spc = chr(spaceChar);
  89.         del = chr(delChar);
  90.  
  91.     type
  92.         integerP = ^integer;
  93.         integerH = ^integerP;
  94.         longIntP = ^longInt;
  95.         longIntH = ^longIntP;
  96.         forkType = (no_fork, data_fork, rsrc_fork, both_fork);
  97.         buf255 = packed array[0..255] of char;
  98.  
  99. implementation
  100.  
  101. end.